with xpa.awk;
with ada.text_io;

procedure test_awk is
	package awk renames xpa.awk;

	hnd: awk.handle;
begin
	awk.open (hnd);
	awk.parse (hnd);
	awk.close (hnd);
exception
	when others =>
		ada.text_io.put_line ("exception");		
end test_awk;

